(format-seconds): Let-bind `num'.

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index 9141dd5ed72e76480fe8b18344213b6c00501634..89d26657f1950eeaedcbc7f8367517b2935974ab 100644 (file)
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -285,7 +285,7 @@ This does not work for input SECONDS greater than `most-positive-fixnum'."
                  ("m" "minute"       60)
                  ("s" "second"        1)))
         (case-fold-search t)
-        spec match outunits unit prev name next)
+        spec match outunits unit prev name num next)
     (setq nonzero (not nonzero))
     (while (string-match "%\\.?[0-9]*\\(.\\)" string start)
       (setq start (match-end 0)